Top 10k strings from MicroHobby Semanal - Issue 077-080 (1986)(Hobby Press)(es).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
3 part=part+1
3 ;"Sabiendo que ";x(3
3 );" y ";x(4
3
2 l,c;" - ":
2 ajuste=ajuste+1
2 X(N)=PINTA
2 PROGRAMAS INCLUIDOS EN
2 Cargador M
2 >B><>B<><B
2 >B><><<><B
2 ;i;")";a$:
2 ;"PARE LA CINTA":
2 ;"La distancia es ";dist:
2 ;" PARA EL CASSETTE "
2 ;" ":
2 ;" "
2 );" y ";x(2
2 );" son los terminos ";x(1
2 (comzinstr/256
2 (comzhex/256
2 ((comzhex+80
2 ((comzhex+49
2 ESTA CINTA UTILIZA
2 O LOAD "<NOMBRE>"
2 PARA CARGAR LOS
2 LOAD ""
2
1 ||||||||>>>>>>>>
1 xxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxzxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzxzzzzzzzzzzzzzzzzxxxxxxxxxzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxxzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxxxzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx8888888888888888888888888888888888888888888888888888888888888888G
1 xxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxzxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzxzzzzzzzzzzzzzzzzxxxxxxxxxzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxxzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxxxzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx8888888888888888888888888888888888888888888888888888888888888888
1 tra pagina
1 tra ficha
1 ter2=ter2+1
1 sum-solu))>solu/100
1 srl=(comzhex+80
1 s$="la suma ="
1 s$="el producto = "
1 s$="ayuda"
1 primera=primera+21
1 primera=primera+1
1 primera+a>3125
1 pas=pas-col
1 pas=pas+col
1 pantalla
1 panta
1 p$="geometrica"
1 p$="aritmetica"
1 origen+numero-1
1 n=comzinstr
1 n (n+1) (n-1) (2*n) (2*n+1)(2*n-1)(2*n+2)(2*n-2)n^2 (n^2-1)(n^2+1)n^3 (2*n^2)(n^2-3)
1 m(memo,i,j)=e(i,j):
1 lug=lug+prin:
1 len=a1+(a2-a1)*(a2>a1)
1 i(x$,i$,p)
1 h$="E2")+6
1 h$="C3")+14
1 h$="B2")+12
1 h$="B1")+8
1 h$="A1")+10
1 h$(x);"h "''
1 gigantula
1 generar INSTRING
1 generar HEX$
1 fo,co,fd,cd,fi,ci
1 fle,dir;" ";
1 fich=fich-1
1 f$="d*n+b":
1 f$="b*r^n":
1 e(i,j)=m(memo,i,j):
1 e$-sol)>1e-5
1 dist=dist/
1 dist=dist+
1 desplazamiento=destino-origen
1 d(i,j)=d(i,j)+2
1 d(i,j)=c1+(c2-c1)*(c2>c1)+(i=2
1 d$="E2")+6
1 d$="C3")+14
1 d$="B2")+12
1 d$="B1")+8
1 d$="A1")+10
1 cont=cont+b:
1 comzinstr=
1 comzinstr-1
1 comzinstr+132
1 comzhex+90
1 c(i,j,k)=p(j,3
1 c$(len-a1+1
1 binhexl=(comzhex+49
1 b$(p)=a$(7
1 b$(len-a2+1
1 ayuda=1.2345
1 a=primera
1 a+desplazamiento
1 a(k)=c(i,j,k)
1 X(M)=PINTA
1 Ver fichas
1 Triangulo
1 Trasferir fichas
1 TZX BY YOXXXOY0
1 TRES ULTIMAS CARTAS
1 TIRA CARTA EL ORDENADOR
1 Sustituye los datos en la expre-sion general y tendras ";:
1 Sobreescritura
1 SUMA=SUMA+(Q(N)-8
1 SUMA=SUMA+(Q(N)-3
1 SUMA PUNTUACION
1 SITUACION FLECHA
1 SEG=SEG+SUMA:
1 S(N)=S(N)/15
1 S(N)=S(N)*15
1 Reset
1 RECOGIDA DE OBJETOS
1 Progresion
1 Plano Afinw>
1 PROGRAMA PRINCIPAL
1 PRIM=PRIM+SUMA:
1 PONE CARTA
1 PASO A VALOR REAL DE Z
1 PART2=PART2+1
1 PART2=PART
1 PART1=PART2
1 PART1=PART1+1
1 PART1=PART
1 PARE LA CINTA
1 OTRA PANTALLA
1 ORDENADOR ELIGE CARTA
1 N-L,S;" ":
1 MOVIMIENTOS
1 MONTON Y PINTA
1 MICROHOBBY SEMANAL 77-80
1 MAYOR>7 QUE PINTE IGUAL
1 MAGAZINE CASSETTE
1 M. Sepulveda *INTERCAMBIO*
1 LA MENOR QUE PINTE
1 LA MAYOR QUE PINTE
1 Krakatoa KO
1 JUGADOR ELIGE CARTA
1 Intercam r
1 Impresion F
1 INTERCAMBIO
1 INSTRING demo
1 INSTRING /HEX$ Demo
1 IMPRIME SALIDA
1 HOBBY PRESS
1 Grafic
1 Gigantula
1 G(R)=V(P-1
1 G(N)=V(BK-1
1 FicheroM3
1 FINAL DE JUEGO
1 F(N)=V(BK):
1 F(M)=V(P):
1 Espia
1 Entrar fichas
1 ENTER para solucion)"
1 DIR=DIR-COL
1 DIR=DIR+PAS
1 DIR=DIR+COL
1 DIBUJA LA CARTA
1 Brisca
1 Borrar fichas
1 Bolas l
1 Basic CM n
1 Base Datos
1 BUCLE PRINCIPAL
1 BORRA CARTA ELEGIDA
1 BOLAS CON POS. e,f
1 BOLAS CON POS. c,d
1 BOLAS CON POS. a,b
1 BARAJEANDO
1 B DD D@0DD
1 ALEJANDRE '86
1 ACTUALIZA PUNTUACION
1 ;s$;" es ";solu:
1 ;memo;" MEMORIZANDO":
1 ;"pulsa una tecla":
1 ;"VIDAS:";vi;
1 ;"Transfiero ficha numero ";a
1 ;"TESOROS:";tes;
1 ;"TERMINAR.T"
1 ;"TE ATREVES OTRA VEZ ? (S/N) ";
1 ;"Si entre los numeros b1 y b2 de una progresion ";p$;" quiero interpolar k numeros"'o$
1 ;"Si ad y ak son los terminos d y k de la progresion;";:
1 ;"Sabiendo que los 5 primeros terminos de la serie son"
1 ;"SALIDA":
1 ;"RAPIDA....2"
1 ;"Quieres volver a intentarlo ";
1 ;"QUIERES UNA SOLUCION ? (S/N) ";
1 ;"Pulsa una tecla":
1 ;"Pulsa numero de memoria o volver":
1 ;"PULSE PARA EMPEZAR":
1 ;"PUES HALA!!!"
1 ;"POR INIGO'SOFT";
1 ;"PON ATENCION";
1 ;"PON ATENCION"
1 ;"PARTIDAS":
1 ;"PARTIDA 1 "
1 ;"PANTALLA:";pa
1 ;"Opciones:"'''"1)Distancia punto-recta"''"2)Distancia entre dos puntos"''"3)Punto de corte de dos rectas "''
1 ;"Opciones:"'''"1)Comprobar dos rectas"''"2)Obtener una paralela"''"3)Obtener una perpendicular"''
1 ;"Opciones:"
1 ;"OTRA PARTIDA? (s/n)"
1 ;"NORMAL....1";
1 ;"Memoria vacia":
1 ;"MOVIMIENTO";
1 ;"MOVIMIENTO INCORRECTO.";
1 ;"MICROHOBBY";
1 ;"MENU GENERAL":
1 ;"Lo siento, pero esta mal ,prueva otra vez ":
1 ;"La solucion es:"'"a(n)= ";e$:
1 ;"La solucion es "'"a(n)=";e$:
1 ;"La expresion general de una progresion ";p$;" es:"'" a(n)= ";f$
1 ;"JUGADA 1 ";
1 ;"Interpolar ";k;" terminos entre ";x(3
1 ;"IZQUIERDA...Z";
1 ;"INTRODUCE TUS INICIALES"
1 ;"INCORRECTO"
1 ;"HASTA - ";
1 ;"G A M E O V E R"
1 ;"Estoy ajustanto la ficha ";a
1 ;"En efecto, esta bien ":
1 ;"El termino general de la serie es a(n)= ";e$
1 ;"ESTA CLARO ?";
1 ;"ERROR EN DATAS":
1 ;"ELIJA LA VELOCIDAD";
1 ;"ELEGIR...ENTER";
1 ;"ECUACIONES DE LA RECTA"
1 ;"Dime cual es el termino general (
1 ;"Dame los terminos del ";q1;" al ";q2;" de esta serie"
1 ;"DOS ULTIMAS CARTAS EN EL MONTON"
1 ;"DESDE - ";
1 ;"DERECHA.....X";
1 ;"Cual es el termino ";(rnu);" de esta progresion"
1 ;"Coordenada ";
1 ;"CON COLABORACION DE INAKI'SOFT";
1 ;"7. Trasferir fichas"
1 ;"6. Reajustar fichero"
1 ;"5. Borrar fichas"
1 ;"5)Llamar memoria"
1 ;"4. Back-up"
1 ;"3. Salir del programa"
1 ;"28000 46000":
1 ;"2. Ver fichas"
1 ;"1. Introducir fichas"
1 ;"1)Introducir nueva base"''"2)Cambiar un vector de base"''''" (ENTER vuelve)"
1 ;"- EUZKADI -"
1 ;"!!CORRECTO!";
1 ;"!!CORRECTO!!"
1 ;" YO SOY EL CAMPEON ":
1 ;" YO GANO ":
1 ;" TU GANAS ":
1 ;" TU ERES EL CAMPEON ":
1 ;" QUIERES JUGAR DE NUEVO? "
1 ;" PUNTOS ":
1 ;" PARA EL CASSETTE ":
1 ;" EMPATE ":
1 ;" EL ESPIA ":
1 ;" BARAJANDO "
1 ;" A CUANTAS PARTIDAS (1
1 ;" UN MOMENTO, CARGANDO DATAS ":
1 ;" ":
1 ;" ";
1 ;" "
1 ;" ";
1 ;" ":
1 ;" ":
1 ;" ":
1 ;" "
1 ;" "
1 ;" ":
1 ;" "
1 9","6","7","6","0","12","1","4","10","9","1","1","5","1"
1 8","9","1","8","7","13","0","12","6","2","13","0","9","1","6","12","8","10","9","4","7","13","12","1","6","11","2","6","11","9","3","1","3","5","6","12","5","4","10","9"
1 8","14","0","0","
1 7","13","11","12","6","9","6","2","1","3","5","1","1","6","11","10","9","6","11","9","3","8","9","8","2","8","0","7","6","0","
1 65288,y estara activa hasta que teclees
1 4- GENERAL
1 0","7","5","16","
1 ,srl,srh,193
1 ,j)-d(i,j))/2
1 ,comzinstr-256
1 ,comzhex-256
1 ,binhexl,binhexh,17
1 ,binhexl,binhexh,123
1 ,"Segmentaria",19
1 ,"Parametrica",7
1 ,"Implicita",14
1 ,"Explicita",10
1 ,"Continua"
1 +i));"? ";
1 *d(i,j))/8
1 *(len-a2),p2-7
1 *(len-a1),p2+1
1 *(h$="E5"):
1 *(h$="D4")+16
1 *(h$="D1")+4
1 *(d$="E5"):
1 *(d$="D4")+16
1 *(d$="D1")+4
1 *(a$="Q")+17
1 *(a$="O")+(a$="P")+4
1 *(a$="A")+8
1 *(a$="8")+18
1 *(a$="7"):
1 *(a$="6")+24
1 *(a$="5")+20
1 *(a$="0")+2
1 )=-m(mim,1
1 )=(v(i,i)*v(j,j)*u(j,j,i)*u(j,i,j)-v(j,i)*v(i,j)*u(j,i,i)*u(j,j,j))*u(i,j,j)*u(i,i,j)
1 )=(u(i,i,i)*u(j,j,i)*u(j,i,j)*u(i,j,j)-u(j,i,i)*u(i,j,i)*u(i,i,j)*u(j,j,j))*v(i,j)*v(j,j)
1 );" sabiendo que son terminos de una progresion ";p$
1 );" es el termino numero ";x(1
1 );" de la progresion. Obtener la expresion general."
1 );" de la progresion. Dame el termino general";
1 );" de la progresion. ";
1 )+"/"+b$(2
1 )*(m(re2,2
1 )*(m(re1,1
1 )*(c(i,j,1
1 (primera+a):
1 (f);" ";sol:
1 (ad*ak)^(k-d+1)":
1 ''"Coordenada y: ";:
1 ''"Coordenada x: ";:
1 "una ecua-cion con una incognita":
1 "segmento sobre el eje ";(
1 "se encuentra a partir de la posicion ";pos;" de la primera cadena"'''
1 "que la desactivara.Ahora esta activada.Para hacer que se ejecutepulsa simultaneamente las teclas ""SYMBOL"" y ""SPACE"""
1 "para activar la rutina reset,so-lo tienes que hacer
1 "n^3","(2*n^2)","(n^2-3)"
1 "n^2","(n^2-1)","(n^2+1)"
1 "n","(n+1)","(n-1)"
1 "la suma vale (ad-ak*r)/(1-r)":
1 "la suma vale (ad+ak)*(k-d+1)/2":
1 "la razon es r=(b2/b1)^(1/(k+1))"
1 "la diferencia es d=(b2-b1)/(k+1)"
1 "el producto vale
1 "dos ecuaciones con dos incognitas":
1 "deseas activar el reset? ";
1 "a(";(rnu);")= ";zxc
1 "Version? ";
1 "Texto de la ficha |"'
1 "Te recuerdo que el RESET no fun-cionara en rutinas que desacti--ven las interrupciones,como son el
1 "RECTAS PERPENDICULARES":
1 "RECTAS PARALELAS":
1 "Punto y vector","Dos puntos","Punto y pendiente","Segmentos en los ejes"
1 "Pulsa 's' para salir"
1 "Primera ficha? ";primera
1 "Pendiente ";
1 "Obtener la suma desde el primero hasta el segundo."
1 "Obtener el producto desde el primero hasta el segundo.":
1 "Numero de fichas? ";numero
1 "Nombre?";s$:
1 "NI PARALELAS NI PERPENDICULARES":
1 "Memoria de la recta: ";memo:
1 "Memoria de la recta a la que es perpendicular ";mim:
1 "Memoria de la recta a la que es paralela ";mim:
1 "Longitud?";lo
1 "Introduzca cartucho fichero"'"Y pulse una tecla":
1 "Introduce una cadena:",x$:
1 "Introduce un numero decimal:"'x:
1 "Introduce las memorias de ambas","recta 1: ";re1,"recta 2: ";re2
1 "Introduce el numero de la"'"memoria (1 a 9) ",memo
1 "INSTRING o HEX$ [I,H] ";
1 "INS/HEXD"
1 "Fichero";1
1 "Fichero ajustado"'"Tiene ";ajuste;" fichas.":
1 "Ficha ya escrita. Quieres sobre-escribirla (s/n)";
1 "Ficha origen? ";origen
1 "Ficha destino? ";destino
1 "Este programa lo puedes borrar, para hacer el tuyo,pero te re- cuerdo que si haces NEW,deberas hacer RANDOMIZE USR 65288 para volver a activarla"
1 "Esta opcion tarda bastante Ten paciencia, hay 3125 fichas"'"Pulsa 'SPACE' para dejar el reajuste"
1 "Elige una dificultad de 1 a 4"'dif
1 "ECUACIONES DE LA RECTA","PARALELISMO Y PERPENDICULARIDAD","CAMBIOS DE BASE","DISTANCIAS E INTERSECCIONES"
1 "Direccion de comienzo: ";comzinstr
1 "Direccion de comienzo: ";comzhex
1 "Cual es la ultima? ";ultima
1 "Cual es la primera? ";primera
1 "Cual es la primera ficha? ";primera
1 "Coordenadas del punto","x ";
1 "Componentes del vector","x ";
1 "Componente x del primer vector","Componente y del primer vector","Componente x del segundo vector","Componente y del segundo vector"
1 "Cadena:"'"""";x$;""""''
1 "Cadena a buscar:",i$:
1 "Cadena a buscar:"'"""";i$;""""''
1 "A1","B1 B2","C1 C2 C3","D1 D2 D3 D4","E1 E2 E3 E4 E5"
1 "A partir de la posicion:",p:
1 "A partir de la posicion :";p''
1 "8","7","13","2","8","9","13","9","6","11","11","0","10","2","8","7","13","0","7","4","14","0","2","1","13","0","9","5","1","4","10","9","13","0","7","1","3","5","8","7","1","4","9","8","10","14","0","9","8","10","0","2","1","8","0","7"
1 "6","12","8","11","11","10","14","7","1","13","0","7","6","9","1","1","15","8","2","8","9","4","9","3"
1 "6","10","2","4","
1 "5","1","4","10","9","5","6","9","1","1","5","1","4","12","8","7","
1 "3- PROG. GEOMETRICAS","4- GENERAL"
1 "(2*n+2)","(2*n-2)"
1 "(2*n)","(2*n+1)","(2*n-1)"
1 "(1) TECLADO O (2) KEMPSTON ";key
1 " si la razon es r=";da:
1 " si la diferencia es d= ";da:
1 " MENU ","1- SERIES","2- PROG. ARITMETICAS"
1 Ricardo Serral Wigge
1 PARA DETENER LA DEMO MANTENER PULSADA CUALQUIER TECLA
1 GRAFICOS & SONIDO
1 DEMO "GIGANTULA" ARTICULO MICROHOBBY
1 CARTA GANADORA